HPAVC/HPAVC CD-ROM.iso/pc/TR-XTRB2.ZIP/XTURBO.PPS

Text File | 1997-01-01 | 5.3 KB | 144 lines

;------------------------------------------------------------------------------
;Sorry i dont know how to do released source codes they call algarithms.
;fuck all that, heres the code i wrote, it compiles and runs so what else
;do you need!
;------------------------------------------------------------------------------

    String   STRING001
    String   STRING002
    String   STRING003
    String   STRING004
    string    string005
    string    string006
    string    string007
    string    string008
    string    string009
    integer    integer001
    integer    integer002
    integer    integer003
    integer    integer004
    integer    integer005

;------------------------------------------------------------------------------

    if (!Exist(ppepath() + "xturbo.pcb")) then
        fcreate 4, ppepath() + "xturbo.pcb", 2, 0
        fputln 4, "@X08---------------@X07  @X08---@X07 @X08--@X07                                                        "
        fputln 4, " @X0BT@X03urbo@X0B L@X03ogon@X07                                                                   "
        fputln 4, "@X08-----------------@X07 @X08------@X07                                                       "
        fputln 4, " "
        fputln 4, "  @X0Fa."
        fputln 4, "  @X0Fb."
        fputln 4, "                                                                               "
        fputln 4, "@X08------------ --------  ------@X07                                                  "
        fputln 4, "@X3Fi@X03nput@X0D @X3Fc@X03hoice@X08:@X07 @X88_@X07                                                                "
        fputln 4, "@X08---------------------@X07 @X08---@X07 @X08 ---@X07                                                 "
        fputln 4, ""
        fclose 4
        if (exist(ppepath() + "xturbo.cfg")) delete ppepath() + "xturbo.cfg"
        fcreate 3, ppepath() + "xturbo.cfg", 2, 0
        fputln 3, "30"
        fputln 3, "6 5"
        fputln 3, "6 6"
        fputln 3, "YES"
        fputln 3, "@X3B"
        fputln 3, "@X08"
        fputln 3, ""
        fputln 3, "--- (XTurbo Version 2.o2 configuration file!) -------------------------------"
        fputln 3, " Line One  : The minimum security level to run the program. Users with access"
        fputln 3, "             levels higher than this number will go straight into displaying"
        fputln 3, "             the file Xpert.TXT."
        fputln 3, " Line Two  : The x/y co-ordinates of the `no turbo login'"
        fputln 3, " Line Three: The x/y co-ordinates of the `yes turbo login'"
        fputln 3, " Line Four : If `YES' the ppe will see if the user has the expert mode on."
        fputln 3, "             If he/she does, it will go straight into displaying the file"
        fputln 3, "             Xpert.TXT"
        fputln 3, " Line Five : The PCB colour code for the selected litebar"
        fputln 3, " Line Six  : The PCB colour code for the non-selected litebar"
        fputln 3, ""
        fclose 3
    endif
    if (!exist(ppepath() + "xturbo.cfg")) then
        log "@X0CERROR! XTURBO.PPE COULDNT FIND XTURBO.CFG!", 1
        end
    endif
    GetUser
    STRING003 = ReadLine(PPEPath() + "xturbo.CFG", 1)
    integer001 = string003
;   If (U_Sec >= integer001) Goto LABEL006
    string005 = readline(ppepath() + "xturbo.cfg", 2)
    tokenize string005
    integer002 = gettoken()
    integer003 = gettoken()
    string006 = readline(ppepath() + "xturbo.cfg", 3)
    tokenize string006
    integer004 = gettoken()
    integer005 = gettoken()
    string007 = readline(ppepath() + "xturbo.cfg", 4)
    if ((Upper(string007) == "YES")) then
        getuser
        if ((U_expert)) goto label006
    endif
    string008 = readline(ppepath() + "xturbo.cfg", 5)
    string009 = readline(ppepath() + "xturbo.cfg", 6)
    STRING001 = " No turbo login!      "
    STRING002 = " Yes turbo login!     "
    print "@CLS@@POFF@"
    DispFile PPEPath() + "xturbo.PCB", 1
    :LABEL001
    AnsiPos integer002, integer003
    Print upper(string008) + STRING001
    AnsiPos integer004, integer005
    Print upper(string009) + STRING002
    Color 0
    Print " "
    Backup 1
    :LABEL002
    STRING004 = ""
    while ((string004 == "")) string004 = inkey()
    If ((Upper(STRING004) == "DOWN") || (STRING004 == "2")) Goto LABEL003
    If ((Upper(STRING004) == "UP") || (STRING004 == "8")) Goto LABEL003
    If (STRING004 == Chr(13)) Goto LABEL005
    If (Upper(STRING004) == "A") Goto LABEL007
    If (Upper(STRING004) == "B") Goto LABEL008
    Goto LABEL002
    :LABEL003
    AnsiPos integer002, integer003
    Print string009 + STRING001
    AnsiPos integer004, integer005
    Print string008 + STRING002
    Color 0
    Print " "
    Backup 1
    :LABEL004
    STRING004 = ""
    while ((string004 == "")) string004 = inkey()
    if (((Upper(STRING004) == "DOWN") || (STRING004 == "2"))) Goto LABEL001
    If ((Upper(STRING004) == "UP") || (STRING004 == "8")) Goto LABEL001
    If (STRING004 == Chr(13)) Goto LABEL006
    If (Upper(STRING004) == "A") Goto LABEL005
    If (Upper(STRING004) == "B") Goto LABEL006
    Goto LABEL004
    :LABEL005
    print "@PON@@CLS@"
    if (exist(ppepath() + "logon.txt")) then
        DispFile PPEPath() + "LOGON.TXT", 1
    endif
    End
    :LABEL006
    print "@PON@@CLS@"
    if (exist(ppepath() + "xpert.txt")) then
        Dispfile ppepath() + "XPERT.TXT", 1
    endif
    End
    :LABEL007
    AnsiPos 15, 9
    Print "@X0Fa"
    delay 5
    Goto LABEL005
    :LABEL008
    AnsiPos 15, 9
    Print "@X0Fb"
    delay 5
    Goto LABEL006